home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ Shell Folders.xpl < prev    next >
Text File  |  1999-09-25  |  3KB  |  75 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="4"
  4. "UIPATH"="System\File System\Folders: Data"
  5. "NAME"="General Folders"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.56"
  8. "TEXT 1"="Personal Files"
  9. "TEXT 2"="Program Data"
  10. "TEXT 3"="IE Favorites"
  11. "TEXT 4"="IE Downloads"
  12. "DESCRIPTION 1"=""Personal Files" specifies the folder where your files from Lotus 1-2-3, Microsoft Excel, Microsoft Word, Corel Paint and so on are located."
  13. "DESCRIPTION 2"=""Program Data" is used by new applications from Microsoft for hidden but customized files. For example, Internet Explorer stores the Quick Launch bar links there."
  14. "DESCRIPTION 3"=""IE Favorites" specifies the folder where your Internet Links are located (normally used only by Internet Explorer)."
  15. "DESCRIPTION 4"=""IE Downloads" specifies the default folder for downloaded files from the Internet (normally used only by Internet Explorer)."
  16. "DESCRIPTION 5"="*IMPORTANT* When changing any folder here, you need to copy the files from the old location to the new one "by hand". X-Setup can't do this! *IMPORTANT*"
  17. "AUTHOR"="Xteq Systems"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  20.  
  21.  
  22. sP1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  23. sP2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\"
  24. sP_IE="HKCU\Software\Microsoft\Internet Explorer\"
  25. sV_IE_DL="Download Directory"
  26.  
  27. Sub Plugin_Initialize 
  28.  s=RegReadValue(sp1 & "Personal")
  29.  SetUIElement 1,s
  30.  
  31.  s=RegReadValue(sP1 & "AppData")
  32.  SetUIElement 2,s
  33.  
  34.  s=RegReadValue(sP1 & "Favorites")
  35.  SetUIElement 3,s
  36.  
  37.  s=RegReadValue(sP_IE & sV_IE_DL)
  38.  SetUIElement 4,s
  39. End Sub
  40.  
  41.  
  42. Sub Plugin_CheckData(ElementIndex)
  43. End Sub
  44.  
  45.  
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  s=GetUIElement(1)
  49.  Call RegWriteValue(sP1 & "Personal",s,1)
  50.  Call RegWriteValue(sP2 & "Personal",s,1)
  51.  
  52.  s=GetUIElement(2)
  53.  Call RegWriteValue(sP1 & "AppData",s,1)
  54.  Call RegWriteValue(sP2 & "AppData",s,1)
  55.  
  56.  s=GetUIElement(3)
  57.  Call RegWriteValue(sP1 & "Favorites",s,1)
  58.  Call RegWriteValue(sP2 & "Favorites",s,1)
  59.  
  60.  s=GetUIElement(4)
  61.  if Right(s,1)="\" then s=left(s,len(s)-1)
  62.  Call RegWriteValue(sP_IE & sV_IE_DL,s,1)
  63.  
  64.  
  65.  Call MsgWarning("Remember that you need to copy the files from their old directories to the new ones you just set!!")
  66.  Call Logoff() 'Required because of ActiveDestop and other crap
  67. End Sub
  68.  
  69.  
  70. Sub Plugin_Terminate 
  71. End Sub
  72.  
  73.  
  74.  
  75.